home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / Small Demos / nfib.icl < prev    next >
Encoding:
Text File  |  1994-06-14  |  234 b   |  18 lines  |  [TEXT/3PRM]
  1. module nfib
  2.  
  3. /*
  4. The nfib function.
  5.  
  6. To obtain maximum performance guards are used instead of
  7. pattern matching.
  8. */
  9.  
  10. import StdInt
  11.  
  12. Nfib::Int -> Int
  13. Nfib n    | n < 2 =     1
  14.                 =     Nfib (n - 1) + Nfib (n - 2) + 1
  15.  
  16. Start::Int
  17. Start = Nfib 30
  18.